home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: MegaDisc
/
MegaDisc 15 (1990)(MegaDisc Digital Publishing)(AU)[WB][reissue].zip
/
MegaDisc 15 (1990)(MegaDisc Digital Publishing)(AU)[WB][reissue].adf
/
Programs
/
time.bas
< prev
next >
Wrap
BASIC Source File
|
1989-12-27
|
1KB
|
39 lines
DIM hour$(23),min$(11)
min$(1)="five"
min$(2)="ten"
min$(4)="twenty"
min$(5)="twenty five"
FOR i = 0 TO 23
READ hour$(i)
NEXT
DATA midnight,one,two,three,four,five,six,seven,eight,nine,ten,elaven
DATA noon,one,two,three,four,five,six,seven,eight,nine,ten,elaven
hour=VAL(LEFT$(TIME$,2))
min=VAL(MID$(TIME$,4))
sec=VAL(MID$(TIME$,7))
IF sec>=30 THEN min=min+1
IF min=60 THEN min=0:hour=hour+1
IF min MOD 5 = 0 THEN approx$="exactly "
IF min MOD 5 =3 OR min MOD 5 =4 THEN
approx$="neely "
min = min +5 - min MOD 5
END IF
IF min MOD 5 =1 OR min MOD 5 =2 THEN
approx$="justafter "
min = min- min MOD 5
END IF
main$= min$(min/5)+" past "
IF min >30 THEN main$= min$(12 -min/5)+ " to ":hour=hour+1
IF min=0 THEN main$=" "
IF min=45 THEN main$="quarter to "
IF min=30 THEN main$="haafpast "
IF min= 15 THEN main$="quarterpast "
hour= hour MOD 24
IF hour=0 OR hour =12 THEN hourdes$=""
IF min=0 AND (hour<>0 AND hour<>12)THEN exacthour$=" uhclock" ELSE exacthour$=""
msg$= "It's "+approx$+main$+hour$(hour)+exacthour$+"."
SAY TRANSLATE$(msg$)